home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zh.d64 / txt.copyscreen < prev    next >
Text File  |  2007-03-01  |  923b  |  42 lines
  1. ┴╬╧╘╚┼╥ ├╧╨┘╙├╥┼┼╬
  2.  
  3. BY ─ICK ╦LINGENS
  4.  
  5. ╔N ├╧═┴╠ ╘╧─┴┘ #13 (PAGE 34) ╨ATRICK
  6. ╥OYE DESCRIBES A PROCEDURE TO
  7. HARDCOPY THE TEXT SCREEN WITH SOME
  8. ACTIVE USER FONT ONTO THE PRINTER.
  9. ─AVID ╙TIDOLPH CONVERTED THAT
  10. PROCEDURE TO COPY THE TEXT SCREEN TO
  11. THE GRAPHICS SCREEN.
  12.  
  13. ╔ LIKED ─AVID'S PROCEDURE, BUT HE
  14. USES SOME ╨┼┼╦'S AND ╨╧╦┼'S AND HE
  15. KNOWS A LOT ABOUT WHAT IS IN THE
  16. CATRIDGE. ┬UT AN AVARAGE ├╧═┴╠ USER
  17. CAN DO IT WITH ├╧═┴╠ ITSELF (WITHOUT
  18. ╨EEK/╨OKE) AND FASTER!
  19.  
  20.  ╨╥╧├ COPYSCREEN ├╠╧╙┼─
  21.    ╒╙┼ GRAPHICS
  22.    GRAPHICSCREEN(0)
  23.    BACKGROUND(0)
  24.    PENCOLOR(1)
  25.    CLEARSCREEN
  26.    ─╔═ LINE$ ╧╞ 40
  27.    ╧╨┼╬ ╞╔╠┼ 99,"─╙:",╥┼┴─
  28.    //
  29.    ╞╧╥ ROW#:=1 ╘╧ 25 ─╧
  30.      ├╒╥╙╧╥ ROW#,1
  31.      ╔╬╨╒╘ ╞╔╠┼ 99: LINE$
  32.      PLOTTEXT(1,200-ROW#*8,LINE$)
  33.    ┼╬─╞╧╥ ROW#
  34.    ├╠╧╙┼ ╞╔╠┼ 99
  35.    // TEXTSCREEN IF YOU WANT TO
  36.  ┼╬─╨╥╧├ COPYSCREEN
  37.  
  38. ╙IMPLY OPEN THE ─ATA ╙CREEN FOR
  39. INPUT, READ EVERY 40 CHARACTER ROW IN
  40. A STRING AND PLOT IT ON THE
  41. GRAPHICSCREEN.
  42.